' Hailstones
' This program demonstrates the PRESET statement.

CLS

PRINT "Press any key to stop"

WHILE INKEY$ = ""
    RANDOMIZE TIMER
    randCol% = INT(RND(1) * 480)  ' random column number for "hailstones";
                                                      '   assumes default-size Output window
    FOR i% = 1 TO 296
        PSET (randCol%, i%)
        PRESET (randCol%, i% - 1)
    NEXT i%
WEND
